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MODULE BASSKILL ( 
ew = '1-007" 
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i File: BASKILL.B32 MDL1007 
BEGIN 


SRR RRAARAAAAARAAAAAAAAAAEAAHOREAE RARER AERA ARATE e ees 


° oa 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
it ALL RIGHTS RESERVED. ° 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED . 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. e 

a 
it THE INF ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
it SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. * 
H ® 
iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 

® 

* 


RARER REAR AEE AEE ARERE EAA AEA AERAARAREKAAAKAARERAA REE 
' 


le 
! FACILITY: BASIC-PLUS-2 Miscellaneous 
i ABSTRACT: 


This module implements the BASIC KILL statement, 
which deletes a file. 


i ENVIRONMENT: VAX=-11 User Mode 
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' 
1 
! 
! 
' 
1 
4 
‘ 
1 
{ 
Boag : AUTHOR: John Sauter, CREATION DATE: 01-MAR-1979 
ane MODIFIED BY: 
4 0044 ! 1-001 - Original. JBS gr-nan-1979 
5 0045 ! 1-002 - Correct a typo in a comment. JBS 14-MAY-1979 
6 0046 ! 1-003 - Go through the full error analyzer if an error occurs. 
7 0047 ! JBS 09-AU 6-1979 
8 0048 ! 1-004 = Add code . allow an open file to be KILLed. PLL 15-Jun-1982 
49 0049 ! 1-005 - Edit 004 should have included a guard a ainst ASTs. PLL 17-Jun-1982 
50 0050 ! 1-006 - Edit 004 should have release spe cc ter doing what it needed to 
51 0051 ! once it found a match. ec 8 
26 0026 ' 1-007 = Edit 004 should ose release the CB when it doesn't find a match; 
5 bne ! otherwise the IOINPROG bit for that unit gets set and never cleared, 
20 boas causing subsequent OPENs to fail with IOCHAALR. MDL 6-Feb-1984 
56 0056 
57 0057 ' <BLF /PAGE> 


N 11 
i607! VecSep-1986 1:55:18 — EBASATLeSR 


tie 


5; 0038 1! 

> 60 059 1 ! SWITCHES: 

i # ber | 

; es $444 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 65 0064 1! 

> 66 0065 1 ! LINKAGES: 

3 «6OF 0066 1! 

; «668 0067 1 

; go88 1 REQUIRE ‘RTLIN:OTSLNK'; 

; Bt3 1 

c 2s 496 1! 

; Le: 0499 1 ! TABLE OF CONTENTS: 

. £ 0500 1! 

; 7% B28, 1 

a 05 4 1 FORWARD ROUTINE 

> 0503 1 BASSKILL : NOVALUE, ! Change a file's name 

3 a Fae: : ,  PUSH.CCB : CALL_CCB; ! Calls BAS$$CB_PUSH 

; 0506 1 ! INCLUDE FILES: 

; 0507 1! 

; «#8 0508 1 

; 8¢ 444 ! REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 
; (84 0605 1 REQUIRE 'RTLML:OTSLUB'; 

; 85 0745 1 ; 

; 8 0746 1 LIBRARY ‘RTLSTARLE'; ! System definitions 

s 687 0747 1 

; 0748 1! 

; oy 0749 1 ! MACROS: 

; 0750 1! 

; WH 0751 1! NONE 
; F 3736 1! 

: ¥ 0753 1 ! EQUATED SYMBOLS: | 
; 94 0754 1! 

; 0755 1! NONE 

> & 0756 1! 

; WW 0757 1 ! PSECTS: 

; 0758 1! a: 
; Ww 0759 1 DECLARE_PSECTS (BAS); ! Declare psects for BASS facility 
: 100 0760 1! 

3: 101 0761 1 ! OWN STORAGE: 

; 44 o76¢ 1! 

; 10 0765 1! NONE 

> 6104 0764 1! 

3 305 0765 1 ! EXTERNAL REFERENCES: 

; 106 3766 1! 

s yor 0767 1 

: 108 0768 1 EXTERNAL ROUTINE 

3; 109 0769 1 BASSSSTOP : NOVALU ! signal fatal error 

; 110 770 1 BASSSSTOP_RMS : NOVALUE, ' signals fatal RMS error 

: (111 771 «1 BASSSNEXT"LUN : NOVALUE, : find next allocated LUN 
: ig oe 1 BAS$$CE_POSH : JSB_CB_ PUSH NOVALUE, ! get a CCB 

3: (11 773° 1 BAS$$CB_POP : JSB_CB_POP NOVALUE, ' release a CCB 

3 («114 0774 1 LIBSSIG_TO_RET; ! condition handler 


-- 


12 
BASSKILL 18-96 -1984 00:41: AX-11 Bliss-32 V4.0-742 Page 3 
1-07 14-Sep-19 4 9 64:46 EBASRTL SRe BASKILL.832;1 wi 
; 116 775 1 GLOBAL ROUTINE BASSKILL ( ' Delete a file 
.: 3 tre 1 FILE_NAME ' Name of file to delete 
3 113 ef : ) : NOVACUE = 
; 120 ie 1 !e4 
; 1 780 | FUNCTIONAL DESCRIPTION: 
: 1 j Ore 13 Delete a file. This is done by using the SERASE 
$ : ¢ 8 ? : RMS macro. 
a oree 1 | FORMAL PARAMETERS: 
: ig 0786 1: 
: ; 3 1414 : FILE_NAME.rt.dx The name of the file to delete. 
: 18 0789 1! IMPLICIT INPUTS: 
: 131 0790 1: 
182 fay = 
: 134 0798 ! IMPLICIT OUTPUTS: 
: 1% oe | _ 
: 138 0797 1 ' ROUTINE VALUE: 
: 139 0798 1 | COMPLETION CODES: 
: 140 0799 1! 
ia me ieee 
: 148 080 i SIDE EFFECTS: 
: 145 0804 1: Deletes the specified file and removes its directory entry. 
> 146 0805 1! 
: 167 0806 1 i-- 
: 148 0807 1 
: 188 $809 neha: 
: 151 0810 GLOBAL REGISTER 
: 152 0811 CCB = 11 : REF BLOCK C,BYTE); 
i 
; 155 0814 FILE_NAME : REF BLOCK (8, BYTE]; 
: 133 oF LOCAL 
: 13 $B18 NARCBLOCK. : SNARTDECE 
3 160 0819 NAMBUF : VECTOR [NAMSC_MAXRSS, BYTE), 
: 18) OB) 5 FUN ECAR 
; 188 08 é 3 STATUS : INITIAL (1), 
: 388 ee ee 
: 168 4 5 § CHSFILL (2C* *, NAMSC_MAXRSS, NAMBUF); !' init resultant name to blanks 
: 168 P 08 $ SFAB_INIT (FAB = FAB_BLOCK ! 
> 169 P 0828 FNA = .FILE_NAME~CDSCSA_POINTER], i 
: 170 P 0829 FNS = .FILE-NAME CDSC$W"LENGTHJ, i 
+ 171 0830 NAM = NAM SCOCK); 
: 172 0831 ' 
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12 
1-$6 1984 00:41: AX-11 Bliss-32 V4.0-742 P 4 
14 ety 7 99543:98 BASRTL RCIBASKILL 83251 ast (3) 


T (NAM = NAM BLOCK, 
= NAMSC_MAXRSS, 
= 


N p 
= NAMSC_MAXRSS, 


ERASE_RESULT = SERASE (FAB = FAB_BLOCK); 
IF ( NOT .ERASE_RESULT) 
BEGIN 
Analyze the RMS error status to give a BASIC error message. 
IF (.ERASE_RESULT NEQ RMS$_FLK) 
as BASS$STOP_RMS (.FILE_NAME, .FAB_BLOCK CFABSL_STSJ, .FAB_BLOCK CFABS$L_STVJ) 
ra BEGIN 
i If this is a file locked error, perhaps the user is +? tas to KILL a file 
! that is still open, See if the file is open on any LUN. If it is, set 
! the LUBSV_DELETE bit which will be acted upon at close time and do not 
return an error. 


SPARSE (FAB = FAB BLOCK); 
SSEARCH (FAB = FAB_BLOCK); ! get resultant name 


LUN_FLAG = 0; 
IF sStATUS THEN DO 
BASSSNEXT_LUN (LUN_FLAG, UNIT); ! get next used LUN 
IF .LUN_FCAG NEQ 0 
THEN 
BEGIN 
1+ 


: We have a unit which has been allocated by Basic. 
Call BASS$CB_PUSH and see if the file names match. 


STATUS = PUSH_CCB (.UNIT); 
IF .STATUS AND (.CCB NEQ 0) 


N 
IF .CCB CLUB$V_OPENED) 
THEN 


IF CHSEQL (.CCB CLUBSB RSJ. -CCB CLUBSA_RSNJ, 
. -NAM_BLOCK CNAM$B_RSSJ, .NAM_BLOCK CRAMSL_RSAJ, %C ° °) 


BEGIN 
i Found a match. Disable ASTs and make sure 


! set the delete bit in the LUB. If the file 
} has already been closed, try SERASE again. 


NNN NNO AAAAANAAAAOCOUUIUUR EERE EERE ES AWWW WIINnonononononononn 


AST_STATUS; 
AST_STATUS = SSETAST (ENBFLG = 0); ! disable ASTs 
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13-025-1986 00:41 
: 90:38 


14-Sep-1984 
IF CHSEQL 
N 


ERASE RESULT = SERASE (FAB = 


38 iret Bliss-32 V4.0-742 
: BASRTL.SRCIJBASKILL.832;1 


DELETE] = 1; 
Tats 


IF .AST_STATUS EQL SS$_WASSET 
yi SSETAST (ENBFLG = 1); ! re-enable ASTs 
release the unit (CCB). 


BASS$$CB_POP (); 
EXITLOOP 


e 


(.CCB CLUBSB_RSLJ, .CCB CLUBSA_RSNI, 
AM BLOCK CNAM$B_RSSJ, .NAM_BLOCK CRAMSL_RSAJ, 


FAB_BLOCK); 


: No match. Release this unit and continue scanning units. 


BAS$S$CB_POP (); 
END; 


END 
UNTIL .LUN_FLAG EQL 0; 


IF NOT .STATUS 
THEN 


'¢ 


!' until no more LUNs 


Signal error. File was not open on any channel. 


ELS 
i 


* atectaniina (. STATUS) 


'¢ 
No PUSH_CCB error. Any SERASE error? 


END; 
RE TURN; 
END; 


IF NOT .ERASE_RESULT 


yp PASSSSTOP_AMS (.FILELNAME, .FABLBLOCK CFABSL_STSJ, .FAB_BLOCK CFABSL_STV]); 


end of 


BASSKILL 


BASSKILL 
\1-007\ 


BASSSSTOP, BASSSSTOP_RMS 


BASSSNEXT_LUN, BASS$$CB_PUSH 
BAS$$CB_POP 
SYSSERASE, SYSS$P 


SYSSSEARCH, 


LIBSSIG_TO_RET 


— 


ccc 


—@ 


; 
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BASSKILL 1hese -1984 00:41: AX-11 Bliss-32 V4.0-742 Pa 6 8 
‘i007 ergot 88e FFi8hi9§ | HaNS AT esha er 5s? 9 63) 1 
| -PSECT _BASSCODE,NOWRT, SHR, PIC,2 : 
| OFFC 00000 -ENTRY BASSKILL, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,-; 0775 
A 000000006 00 9€ 0000 MOVAB SYSSERASE, R10 : : 
| 9 0990000 G 09 E $008 MOVAB BASSS$CB_POP, RO : ; 
8 000000006 9E 9019 MOVAB SYSS$SETAST, RB : ; 
| 5 FEG i 9 0017 MOVAB si40(sP) $p inees : 
OOFF BF 20 6E - 00 BC O01 MOVCS #0. (SP), #32, #255, NAMBUF + 0825 | : 
0050 = &F 00 6E . 00 2c 99 3 MOVCS #0, (SP), #0, #80, SRMS_PTR + 0830 ; 
BO AD 500 F 80 0031 MOVW #20483, $RMS_PTR : : 
C6 AD 2 0037 MOVB #2, $RMS_PTRT22 : : 
CF AD 90 00038 MOVB #2, $RMS~PTR+31 : ; 
D8 AD FFSO © CD H 003F MOVAB NAM BLOCR, SRMS_PTR+40 : ; 
56 04 ac D Bone MOVL FILE_NAME, R : 3 
DC AD 04 Ab DO 00049 MOVL 4(R6), SRMS_PTR+44 : 3 
£4 AD 66 90 0004 MOVE. (R6), $RMS_PTR+52 : ; 
0060 8F 00 6E es 00 2c 9005 MOVCS #0, (SP), BO, #96, SRMS_PTR + 0836 F 
FFS5O = CD 6002 8F B0 0903¢ MOVW #24578, SRMS_PTR : : 
FF52 «CD 01 BE 0006 MNEGB #1, S$RMS_PTR? : : 
FF54 «CD 08 AE 9E 00068 MOVAB NAMBUF, SRMS_PTR+4 : : 
FFSA CD 01 BE 0006 MNEGR #1, S$RMS_PTRT10 ; : 
FFSC CD 08 AE 9E 0007 MOVAB NAMBUF, SRMS_PTR+12 : : 
BO AD 9F 00079 PUSHAB FAB_BLOCK : 0838 : 
6A (1 FB 0007¢ CALLS #1, SYSS$ERASE : ; 
54 50 DO 0007F MOVL RO, ERASE_RESULT ; | : 
01 54 9 00082 BLBC ERASE_RESOLT, 1$ > 0840) ; 
0001828A = 8F 54 01 $0986 1$: CMPL ERASE RESULT, #98954 + 0846) : 
03 13 0008D BEQL $ : ; 
OOAB 31 O008F BRW 12$ : ; 
BO AD 9F 00092 28: PUSHAB FAB_BLOCK + 0857 : 
000000006 00 01 FB 0009 CALLS #1, SYS$PARSE F ; 
BO AD 9F 0009C PUSHAB FAB_BLOCK : 0858 : 
000000006 00 01 FB 0009F CALLS #1, SYS$SEARCH ; : 
04 AE D4 000A6 CLRL — LUN_FLAG : 0859. : 
03 5 Eg 000A9 BLBS STATUS, 3$ : 0860. : 
0081 31 OOOA BRW 10$ : | : 
5E DD OOOAF 3$: PUSHL SP : 0862 : 
08 AE 9F 00081 PUSHAB LUN_ FLAG : : 
000000006 00 02 FB 000B4 CALLS #2, BAS$SNEXT_LUN : 3 
04 AE 05 00088 TSTL LUN FLAG > 0863 : 
68 13 0008 BEQL $ § 3 
6E DD 990¢ PUSHL UNIT > 0870 | : 
eh Bh 8 $3805 faut ag: Syste : : 
59 29 E OOOEA BLBC = STATUS, 3 : 0871 : 
38 DS 000CD TSTL CCB ; : 
55 13 OOOCF BEQL $ : 3 
51 FC AB : 0001 BLBC -4(CCB), 7$ : 0873 : 
51 F7 AB 9A 00005 MOVZBL -9(CCB). R1 : 087 : 
50 FF52 cD 9a 00009 MOVZBL NAM BLOCK +2 RO > 0876 : 
50 20 F8 6B 1 2D OO0DE CMPCS R1,~a-8(CCBS, #32, RO, @NAM_BLOCK+4 > 0875 : 


; Routine Size: 5331 bytes, Routine Base: _BASSCODE + 0000 


se liiecochigedseniniatnnesnan Neate niet al cannes tobi panagesttttrettbaetito 
| ASSKILL 16 12 1984 00:41 AX-11 Bliss-32 V4.0-742 P 7 
-Sep- $ $ e ss- «V* age : 

| A805 1-8ep-19 4 90:98:98 YBASRTL  SRe BASKILL.832;1 * is) } 
FFS4 D OOES 3 $ 

D 12 000E7 BNEQ : : 

E D4 00069 CLRL = = (SP) + 0888 ; 

68 1 FB O0EB CALLS #1, SYSSSETAST F : 

2 0 3 BpeE MOVL AST_STATUS ; 3 

1 F7 AB 9A OOOF MOVZBL -9(CCB)*> R1 3 0889 3 

50 FF52. CD «9A O00FS MOVZBL NAM_BLOCK +2 RO + 0890 ; 

50 20 f8 6B ne 31 20 OOFA CMPCS R1,~a-B8(CCBS, #32, RO, @NAM_BLOCK+4 + 0889 3 
A 1 o103 BNEQ 4$ : : 

FC AB 40 BF 8 010 BISB2 #64, -4(CCB) + 0894 F 

54 g1 D 4 A MOVL #1, ERASE_RESULT + 0895 ; 

9 11 0010D BRB 5$ + 0889 | ; 

BO AD 9F 00108 4$ PUSHAB FAB_BLOCK : 0898 g 

6A gt FB Bite CALLS #1, Bases ase 3 é 

54 0 pO 0011 MOVL RO, ERASE _RESULT : ; 

09 55 D1 00118 5$: CMPL AST_STATUS, #9 : 0899 ; 

05 12 00118 BNEQ 68 : | ; 

01 DD 0011D PUSHL #1 + 0901 : 

68 01 FB OO11F CALLS #1, SYSSSETAST : ; 

69 16 4) 2 68: JSB BAS$$CB_POP + 0905 ; 

07 11 00124 BRB + 0878 3 

69 16 00126 7$: JSB BAS$$CB_POP : 0911. 3 

04 AE 05 901 8 8S: TSTL UN_FLAG 3 0914) ; 

2 if 0128 BNEQ : | ; 

OA 57 €8 00120 9$: BLBS § STATUS, 11$ : 0916 ; 

57 DD 00130 108: PUSHL : 0921 3 

00000000G 00 01 be 4d 3 seats #1, BASSSSTOP § 3 

OD 54 Es 0013A 11$:  BLBS | ERASE_RESULT, 138 : 0926. 3 

7E B8 AD D 00130 12$: MOVa FAB_BCOCK+ . @(SP) ; 0928 3 

56 DD 00141 PUSHL ; ; 

000000006 00 03 FB 00143 CALLS #3, BAS$SSTOP_RMS : : 

04 0014A 13%: RET + 0934 ; 


——————__-__--------_-———- Achntintaeetinanatnnncmettie = 


‘passes 
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—@ 


$ 77 935 1 ROUTINE PUSH_CCB ( ! Call BASSSCB_PUSH and return with value 
; f ° : UNITY : CALL_CCB = 

; 280 9 3 1 e+ 

PY e 825 : : ABSTRACT: 

; : 941 1: Call BASSSCB_PUSH and return with a condition value as the function 
: Se 74 1! result. BASSS$CB_PUSH is not called directly as it may signal when 
3 5 Ber ! } we do not desire it. 

: a gus | FORMAL PARAMETERS: 

: HS 947 1: UNIT = the unit to be pushed 

; 290 0948 1! 

; 4 0950 : : FUNCTION RESULT: 

: 9 51 1: Either SSSNORMAL or the condition code of an error which was 

> 294 0952 1! signalled by BASSSCB_PUSH. 

; 295 0953 1! 

; 296 0954 1 !<- 

: 297 0955 1 

: 98 095 BEGIN 

:; 299 095 

3 00 0958 EXTERNAL REGISTER 

; 301 0959 ccB; 

; 0960 

s 3 0961 L 

3 Be 3434 LIBSSIG_TO_RET; ! Converts signals to return values 
; 306 0964 BAS$S$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); ! Push the CCB 

; 8 0966 RETURN 1; ' Success 

3; 309 0967 

; 310 0968 END; ! end of PUSH_CCB 


0004 00000 PUSH. CCB: 


ORD Save R2 3; 0935 
6D 0012 CF DE 00002 MOVAL 1$, (FP) : 0956 
50 08 CE 00007 MNEGL #8. RO > 0964 
52 04 AC 00 9000A MOVL UNIT, R2 : 
000000006 00 6 JSB BAS$$CB_PUSH F 
0 01 p 0014 MOVL #1, RO > 0966 
4 00017 RET : 0968 
0000 it 1$ «WORD Save nothing : 0956 
7E 04 0 1A CLRL 2 =( SP) : 
SE DD 0001C PUSHL SP F 
7E 04 aC D 0001 VQ. 4(AP), -(SP) ; 
000000006 00 0 FB 902 CALLS #3, LIBSSIG_TO_RET : 


42 bytes, 


ee oi fH 


3; Routine Size: 


Routine Base: 


_BASSCODE + 0148 


ee a a = " 


H 12 | 
1e23Sp= 1882 89:83:98 PaAsRT SAR faRea tte asses stead ‘ 


ND ! end of module BASSKILL 


PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 373 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Dee Se Se Se Se Se Se Fe Se Se Se Se Oe Se SHS Se Se SH Se Se Oe SESE TH Se SH Oe SESE Se Se Se Se ee Se SH Se SH Beas 


: ccocece - Symbols -<------- Pages Processing 
$ File Total ioaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 65 0 581 00:01.1 
3 COMMAND QUALIFIERS 

4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASKILL/OBJ=OBJ$:BASKILL MSRC$:BASKILL/UPDATE=(ENH$:BASKILL) 
3: Size: 373 aif + 0 data bytes 

: Me Time 

3; Elapsed Time: 00: 328. ‘ 

3; Lines Min: 768 

3 oem A Pade | 40180 

5 poner? Used: 173 pages 

; Compilation Complete 
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